home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 July / macformat-026.iso / mac / Interactive Arts / Interactive Arts '95 / -I-Sight / 00009.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  7.6 KB  |  210 lines
  1. on enterFrame
  2.   global oldTime, firstTimeIn, topCrossH, topCrossV, topDown7H, topDown7V, topDown2H, topDown5V, topDown5H, topDown3V, topDown3H, topDown1V, topDown1H, mouseStartV, object1H, object1V, object2H, object2V, object3H, object3V, mouseStartH, mouseInitialH
  3.   if firstTimeIn = "yes" then
  4.     set topCrossH to the locH of sprite 9
  5.     set topCrossV to the locV of sprite 9
  6.     set topDown1H to the locH of sprite 2
  7.     set topDown1V to the locV of sprite 2
  8.     set topDown3H to the locH of sprite 4
  9.     set topDown3V to the locV of sprite 4
  10.     set topDown5H to the locH of sprite 6
  11.     set topDown5V to the locV of sprite 6
  12.     set topDown7H to the locH of sprite 8
  13.     set topDown7V to the locV of sprite 8
  14.     set object1V to the locV of sprite 12
  15.     set object1H to the locH of sprite 12
  16.     set object2V to the locV of sprite 13
  17.     set object2H to the locH of sprite 13
  18.     set object3V to the locV of sprite 14
  19.     set object3H to the locH of sprite 14
  20.     set mouseStartV to the mouseV
  21.     set mouseStartH to the mouseH
  22.     set mouseInitialH to the mouseH
  23.     repeat with n = 1 to 15
  24.       set the puppet of sprite n to 1
  25.     end repeat
  26.     set the puppet of sprite 27 to 1
  27.     repeat with n = 12 to 14
  28.       set the puppet of sprite n to 1
  29.     end repeat
  30.     startTimer()
  31.     set oldTime to 0
  32.     put the long time into field "theSeconds1"
  33.     set mouseStartH to the mouseH
  34.     set the locH of sprite 27 to the mouseH
  35.     set the locV of sprite 27 to the mouseV
  36.     set the soundLevel to 7
  37.     set firstTimeIn to "no"
  38.   end if
  39. end
  40.  
  41. on mouseDown
  42.   global calledFromInd
  43.   if (the mouseCast = 34) and (calledFromInd = "not sen") then
  44.     go("not sen")
  45.     put "from on mouse down"
  46.   else
  47.     if the mouseCast = 34 then
  48.       go("sen")
  49.     end if
  50.   end if
  51. end
  52.  
  53. on exitFrame
  54.   global oldTime, topCrossH, topCrossV, topDown7H, topDown7V, topDown5H, topDown5V, topDown3H, topDown3V, topDown1H, topDown1V, mouseStartV, mouseStartH, mouseInitialH, mouseShiftH
  55.   set theMovementH to mouseStartH - the mouseH
  56.   set mouseStartH to the mouseH
  57.   set the locH of sprite 1 to the locH of sprite 1 + (theMovementH / 5) - 24
  58.   set the locV of sprite 1 to the locV of sprite 1 + 40
  59.   set the locH of sprite 2 to the locH of sprite 2 + (theMovementH / 5) - 24
  60.   set the locV of sprite 2 to the locV of sprite 2 + 40
  61.   set the locH of sprite 3 to the locH of sprite 3 + (theMovementH / 5) - 8
  62.   set the locV of sprite 3 to the locV of sprite 3 + 40
  63.   set the locH of sprite 4 to the locH of sprite 4 + (theMovementH / 5) - 8
  64.   set the locV of sprite 4 to the locV of sprite 4 + 40
  65.   set the locH of sprite 5 to the locH of sprite 5 + (theMovementH / 5) + 24
  66.   set the locV of sprite 5 to the locV of sprite 5 + 40
  67.   set the locH of sprite 6 to the locH of sprite 6 + (theMovementH / 5) + 24
  68.   set the locV of sprite 6 to the locV of sprite 6 + 40
  69.   set the locH of sprite 7 to the locH of sprite 7 + (theMovementH / 5) + 4
  70.   set the locV of sprite 7 to the locV of sprite 7 + 40
  71.   set the locH of sprite 8 to the locH of sprite 8 + (theMovementH / 5) + 4
  72.   set the locV of sprite 8 to the locV of sprite 8 + 40
  73.   set the locH of sprite 9 to the locH of sprite 9 - (theMovementH / 5)
  74.   if the locV of sprite 9 > 300 then
  75.     set the locV of sprite 9 to the locV of sprite 9 + 80
  76.   else
  77.     if the locV of sprite 9 > 230 then
  78.       set the locV of sprite 9 to the locV of sprite 9 + 70
  79.     else
  80.       if the locV of sprite 9 > 170 then
  81.         set the locV of sprite 9 to the locV of sprite 9 + 60
  82.       else
  83.         if the locV of sprite 9 > 70 then
  84.           set the locV of sprite 9 to the locV of sprite 9 + 50
  85.         else
  86.           set the locV of sprite 9 to the locV of sprite 9 + 40
  87.         end if
  88.       end if
  89.     end if
  90.   end if
  91.   set the locH of sprite 10 to the locH of sprite 10 - (theMovementH / 5)
  92.   if the locV of sprite 10 > 300 then
  93.     set the locV of sprite 10 to the locV of sprite 10 + 80
  94.   else
  95.     if the locV of sprite 10 > 230 then
  96.       set the locV of sprite 10 to the locV of sprite 10 + 70
  97.     else
  98.       if the locV of sprite 10 > 170 then
  99.         set the locV of sprite 10 to the locV of sprite 10 + 60
  100.       else
  101.         if the locV of sprite 10 > 70 then
  102.           set the locV of sprite 10 to the locV of sprite 10 + 50
  103.         else
  104.           set the locV of sprite 10 to the locV of sprite 10 + 40
  105.         end if
  106.       end if
  107.     end if
  108.   end if
  109.   set the locH of sprite 11 to the locH of sprite 11 - (theMovementH / 5)
  110.   if the locV of sprite 11 > 300 then
  111.     set the locV of sprite 11 to the locV of sprite 11 + 80
  112.   else
  113.     if the locV of sprite 11 > 230 then
  114.       set the locV of sprite 11 to the locV of sprite 11 + 70
  115.     else
  116.       if the locV of sprite 11 > 170 then
  117.         set the locV of sprite 11 to the locV of sprite 11 + 60
  118.       else
  119.         if the locV of sprite 11 > 70 then
  120.           set the locV of sprite 11 to the locV of sprite 11 + 50
  121.         else
  122.           set the locV of sprite 11 to the locV of sprite 11 + 40
  123.         end if
  124.       end if
  125.     end if
  126.   end if
  127.   set the locH of sprite 12 to the locH of sprite 12 - (theMovementH / 5)
  128.   if the locV of sprite 12 > 300 then
  129.     set the locV of sprite 12 to the locV of sprite 12 + 80
  130.   else
  131.     if the locV of sprite 12 > 230 then
  132.       set the locV of sprite 12 to the locV of sprite 12 + 70
  133.     else
  134.       if the locV of sprite 12 > 170 then
  135.         set the locV of sprite 12 to the locV of sprite 12 + 60
  136.       else
  137.         if the locV of sprite 12 > 70 then
  138.           set the locV of sprite 12 to the locV of sprite 12 + 50
  139.         else
  140.           set the locV of sprite 12 to the locV of sprite 12 + 40
  141.         end if
  142.       end if
  143.     end if
  144.   end if
  145.   set the locH of sprite 13 to the locH of sprite 13 - (theMovementH / 5) - 8
  146.   if the locV of sprite 13 > 300 then
  147.     set the locV of sprite 13 to the locV of sprite 13 + 80
  148.   else
  149.     if the locV of sprite 13 > 230 then
  150.       set the locV of sprite 13 to the locV of sprite 13 + 70
  151.     else
  152.       if the locV of sprite 13 > 170 then
  153.         set the locV of sprite 13 to the locV of sprite 13 + 60
  154.       else
  155.         if the locV of sprite 13 > 70 then
  156.           set the locV of sprite 13 to the locV of sprite 13 + 50
  157.         else
  158.           set the locV of sprite 13 to the locV of sprite 13 + 40
  159.         end if
  160.       end if
  161.     end if
  162.   end if
  163.   set the locH of sprite 14 to the locH of sprite 14 - (theMovementH / 5) + 4
  164.   if the locV of sprite 14 > 300 then
  165.     set the locV of sprite 14 to the locV of sprite 14 + 80
  166.   else
  167.     if the locV of sprite 14 > 230 then
  168.       set the locV of sprite 14 to the locV of sprite 14 + 70
  169.     else
  170.       if the locV of sprite 14 > 170 then
  171.         set the locV of sprite 14 to the locV of sprite 14 + 60
  172.       else
  173.         if the locV of sprite 14 > 70 then
  174.           set the locV of sprite 14 to the locV of sprite 14 + 50
  175.         else
  176.           set the locV of sprite 14 to the locV of sprite 14 + 40
  177.         end if
  178.       end if
  179.     end if
  180.   end if
  181.   set mouseShiftH to the mouseH - mouseInitialH
  182.   checkForMorePavement()
  183.   repeat while (oldTime + 5) > (the timer / 60)
  184.     nothing()
  185.   end repeat
  186.   set the puppet of sprite 22 to 1
  187.   set the castNum of sprite 22 to 16
  188.   repeat with n = 23 to 26
  189.     set the ink of sprite n to 4
  190.   end repeat
  191.   set the castNum of sprite 27 to 87
  192.   set the ink of sprite 27 to 36
  193.   puppetSound("Flash shot sound")
  194.   set the backColor of sprite 22 to 0
  195.   updateStage()
  196.   set the locH of sprite 27 to the mouseH
  197.   set the locV of sprite 27 to the mouseV
  198.   set the castNum of sprite 22 to 32
  199.   set the puppet of sprite 22 to 0
  200.   repeat with n = 23 to 26
  201.     set the ink of sprite n to 0
  202.   end repeat
  203.   set the castNum of sprite 27 to 29
  204.   set the ink of sprite 27 to 6
  205.   put the long time into field "theSeconds1"
  206.   set oldTime to the timer / 60
  207.   updateStage()
  208.   go(the frame)
  209. end
  210.